home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Macintosh Sample Code / Monthly Releases (Compressed) / MacDTS.Sample.Code.90.02.sit / SC.020.Transformer / UTransformer.inc1.p < prev    next >
MacBinary  |  1989-10-01  |  14.1 KB  |  [TEXT/MPS ]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Oct 1 00:00:00 1989, modified Sun Oct 1 00:00:00 1989, creator 'MPS ', type ASCII, 13932 bytes "UTransformer.inc1.p" , at 0x36ec 362 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 13 55 54 72 61 6e 73 | 66 6f 72 6d 65 72 2e 69 |..UTrans|former.i|
|00000010| 6e 63 31 2e 70 00 00 00 | 00 00 00 00 00 00 00 00 |nc1.p...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 36 6c 00 | 00 01 6a a1 4b 3c 40 a1 |.....6l.|..j.K<@.|
|00000060| 4b 3c 40 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K<@.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 df 10 00 00 |........|........|
|00000080| 7b 5b 6a 3d 32 30 2f 35 | 37 2f 31 24 5d 7d 0d 7b |{[j=20/5|7/1$]}.{|
|00000090| 5b 66 2d 5d 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |[f-]}.{-|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 0d 23 0d | 23 09 41 70 70 6c 65 20 |-----.#.|#.Apple |
|000000f0| 4d 61 63 69 6e 74 6f 73 | 68 20 44 65 76 65 6c 6f |Macintos|h Develo|
|00000100| 70 65 72 20 54 65 63 68 | 6e 69 63 61 6c 20 53 75 |per Tech|nical Su|
|00000110| 70 70 6f 72 74 0d 23 0d | 23 09 42 69 74 4d 61 70 |pport.#.|#.BitMap|
|00000120| 20 54 72 61 6e 73 66 6f | 72 6d 65 72 0d 23 0d 23 | Transfo|rmer.#.#|
|00000130| 09 55 54 72 61 6e 73 66 | 6f 72 6d 65 72 2e 69 6e |.UTransf|ormer.in|
|00000140| 63 31 2e 70 20 2d 09 50 | 61 73 63 61 6c 20 53 6f |c1.p -.P|ascal So|
|00000150| 75 72 63 65 0d 23 0d 23 | 09 43 6f 70 79 72 69 67 |urce.#.#|.Copyrig|
|00000160| 68 74 20 a9 20 31 39 38 | 39 20 41 70 70 6c 65 20 |ht . 198|9 Apple |
|00000170| 43 6f 6d 70 75 74 65 72 | 2c 20 49 6e 63 2e 0d 23 |Computer|, Inc..#|
|00000180| 09 41 6c 6c 20 72 69 67 | 68 74 73 20 72 65 73 65 |.All rig|hts rese|
|00000190| 72 76 65 64 2e 0d 23 0d | 23 09 56 65 72 73 69 6f |rved..#.|#.Versio|
|000001a0| 6e 73 3a 0d 23 09 09 09 | 09 31 2e 30 20 09 09 09 |ns:.#...|.1.0 ...|
|000001b0| 09 09 09 31 30 2f 38 39 | 0d 23 0d 23 09 43 6f 6d |...10/89|.#.#.Com|
|000001c0| 70 6f 6e 65 6e 74 73 3a | 0d 23 09 09 09 09 4d 54 |ponents:|.#....MT|
|000001d0| 72 61 6e 73 66 6f 72 6d | 65 72 2e 70 09 09 09 09 |ransform|er.p....|
|000001e0| 4f 63 74 6f 62 65 72 20 | 31 2c 20 31 39 38 39 0d |October |1, 1989.|
|000001f0| 23 09 09 09 09 55 54 72 | 61 6e 73 66 6f 72 6d 65 |#....UTr|ansforme|
|00000200| 72 2e 70 09 09 09 09 4f | 63 74 6f 62 65 72 20 31 |r.p....O|ctober 1|
|00000210| 2c 20 31 39 38 39 0d 23 | 09 09 09 09 55 54 72 61 |, 1989.#|....UTra|
|00000220| 6e 73 66 6f 72 6d 65 72 | 2e 69 6e 63 31 2e 70 20 |nsformer|.inc1.p |
|00000230| 09 09 4f 63 74 6f 62 65 | 72 20 31 2c 20 31 39 38 |..Octobe|r 1, 198|
|00000240| 39 0d 23 09 09 09 09 54 | 72 61 6e 73 66 6f 72 6d |9.#....T|ransform|
|00000250| 65 72 2e 63 09 09 09 09 | 4f 63 74 6f 62 65 72 20 |er.c....|October |
|00000260| 31 2c 20 31 39 38 39 0d | 23 09 09 09 09 54 72 61 |1, 1989.|#....Tra|
|00000270| 6e 73 66 6f 72 6d 65 72 | 2e 72 09 09 09 09 4f 63 |nsformer|.r....Oc|
|00000280| 74 6f 62 65 72 20 31 2c | 20 31 39 38 39 0d 23 09 |tober 1,| 1989.#.|
|00000290| 09 09 09 54 72 61 6e 73 | 66 6f 72 6d 65 72 2e 4d |...Trans|former.M|
|000002a0| 41 4d 61 6b 65 09 09 09 | 4f 63 74 6f 62 65 72 20 |AMake...|October |
|000002b0| 31 2c 20 31 39 38 39 0d | 23 09 09 09 09 50 72 6f |1, 1989.|#....Pro|
|000002c0| 6a 49 6e 69 74 09 09 09 | 09 09 4f 63 74 6f 62 65 |jInit...|..Octobe|
|000002d0| 72 20 31 2c 20 31 39 38 | 39 0d 23 09 09 09 09 54 |r 1, 198|9.#....T|
|000002e0| 68 65 20 42 69 74 4d 61 | 70 20 54 72 61 6e 73 6d |he BitMa|p Transm|
|000002f0| 6f 67 72 69 66 69 65 72 | 09 4f 63 74 6f 62 65 72 |ogrifier|.October|
|00000300| 20 31 2c 20 31 39 38 39 | 0d 23 0d 23 09 52 65 71 | 1, 1989|.#.#.Req|
|00000310| 75 69 72 65 6d 65 6e 74 | 73 3a 0d 23 09 09 09 09 |uirement|s:.#....|
|00000320| 4d 61 63 41 70 70 a8 20 | 32 2e 30 a7 39 09 09 09 |MacApp. |2.0.9...|
|00000330| 09 4a 75 6c 79 20 31 30 | 2c 20 31 39 38 39 0d 23 |.July 10|, 1989.#|
|00000340| 0d 23 20 22 54 72 61 6e | 73 66 6f 72 6d 65 72 73 |.# "Tran|sformers|
|00000350| 22 20 69 73 20 61 20 73 | 61 6d 70 6c 65 20 70 72 |" is a s|ample pr|
|00000360| 6f 67 72 61 6d 20 74 68 | 61 74 20 64 65 6d 6f 6e |ogram th|at demon|
|00000370| 73 74 72 61 74 65 73 20 | 68 6f 77 20 74 6f 20 74 |strates |how to t|
|00000380| 72 61 6e 73 6c 61 74 65 | 2c 0d 23 20 72 6f 74 61 |ranslate|,.# rota|
|00000390| 74 65 2c 20 61 6e 64 20 | 73 63 61 6c 65 20 62 69 |te, and |scale bi|
|000003a0| 74 6d 61 70 73 2e 20 49 | 74 20 75 73 65 73 20 61 |tmaps. I|t uses a|
|000003b0| 20 4d 61 63 41 70 70 20 | 73 68 65 6c 6c 20 74 6f | MacApp |shell to|
|000003c0| 20 6f 70 65 6e 20 66 69 | 6c 65 2c 20 6f 70 65 6e | open fi|le, open|
|000003d0| 0d 23 20 77 69 6e 64 6f | 77 73 2c 20 61 6e 64 20 |.# windo|ws, and |
|000003e0| 68 61 6e 64 6c 65 20 6d | 65 6e 75 73 2c 20 62 75 |handle m|enus, bu|
|000003f0| 74 20 74 68 65 20 63 6f | 72 65 20 72 6f 75 74 69 |t the co|re routi|
|00000400| 6e 65 20 69 73 20 77 72 | 69 74 74 65 6e 20 69 6e |ne is wr|itten in|
|00000410| 20 76 61 6e 69 6c 6c 61 | 20 43 2e 0d 23 0d 2d 2d | vanilla| C..#.--|
|00000420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 7b 5b |--------|----}.{[|
|00000470| 66 2b 5d 7d 0d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |f+]}..{-|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 7d 0d 7b 20 47 20 4c |--------|-}.{ G L|
|000004e0| 20 4f 20 42 20 41 20 4c | 09 56 20 41 20 52 20 49 | O B A L|.V A R I|
|000004f0| 20 41 20 42 20 4c 20 45 | 20 53 20 7d 0d 7b 2d 2d | A B L E| S }.{--|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000560| 7d 0d 0d 56 41 52 0d 09 | 67 52 6f 74 61 74 69 6f |}..VAR..|gRotatio|
|00000570| 6e 09 09 20 20 20 3a 20 | 49 4e 54 45 47 45 52 3b |n.. : |INTEGER;|
|00000580| 0d 09 67 43 65 6e 74 65 | 72 20 09 09 20 20 20 3a |..gCente|r .. :|
|00000590| 20 50 6f 69 6e 74 3b 0d | 09 67 44 65 73 74 69 6e | Point;.|.gDestin|
|000005a0| 61 74 69 6f 6e 09 20 20 | 20 3a 20 50 6f 69 6e 74 |ation. | : Point|
|000005b0| 3b 0d 09 67 53 63 61 6c | 65 58 20 09 09 20 20 20 |;..gScal|eX .. |
|000005c0| 3a 20 45 78 74 65 6e 64 | 65 64 3b 0d 09 67 53 63 |: Extend|ed;..gSc|
|000005d0| 61 6c 65 59 20 09 09 20 | 20 20 3a 20 45 78 74 65 |aleY .. | : Exte|
|000005e0| 6e 64 65 64 3b 0d 0d 7b | 2d 2d 2d 2d 2d 2d 2d 2d |nded;..{|--------|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 09 7b 20 45 |--------|--}..{ E|
|00000650| 20 58 20 54 20 45 20 52 | 20 4e 20 41 20 4c 09 52 | X T E R| N A L.R|
|00000660| 20 4f 20 55 20 54 20 49 | 20 4e 20 45 20 53 20 7d | O U T I| N E S }|
|00000670| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------|
|00000680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006d0| 2d 2d 2d 2d 7d 0d 0d 09 | 7b 20 46 72 6f 6d 20 54 |----}...|{ From T|
|000006e0| 72 61 6e 73 66 6f 72 6d | 65 72 2e 63 20 7d 0d 0d |ransform|er.c }..|
|000006f0| 50 52 4f 43 45 44 55 52 | 45 20 47 65 74 54 68 65 |PROCEDUR|E GetThe|
|00000700| 50 69 63 74 75 72 65 28 | 61 52 65 66 4e 75 6d 3a |Picture(|aRefNum:|
|00000710| 20 49 4e 54 45 47 45 52 | 3b 20 64 61 74 61 3a 20 | INTEGER|; data: |
|00000720| 50 74 72 29 3b 0d 09 45 | 58 54 45 52 4e 41 4c 3b |Ptr);..E|XTERNAL;|
|00000730| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 44 6f 54 72 |..PROCED|URE DoTr|
|00000740| 61 6e 73 66 6f 72 6d 28 | 73 6f 75 72 63 65 42 4d |ansform(|sourceBM|
|00000750| 2c 20 64 65 73 74 42 4d | 3a 20 42 69 74 4d 61 70 |, destBM|: BitMap|
|00000760| 3b 20 63 65 6e 74 65 72 | 2c 20 64 65 73 74 69 6e |; center|, destin|
|00000770| 61 74 69 6f 6e 3a 20 50 | 6f 69 6e 74 3b 20 72 6f |ation: P|oint; ro|
|00000780| 74 61 74 69 6f 6e 3a 20 | 49 4e 54 45 47 45 52 3b |tation: |INTEGER;|
|00000790| 20 53 78 2c 0d 09 09 09 | 09 09 20 20 53 79 3a 20 | Sx,....|.. Sy: |
|000007a0| 45 78 74 65 6e 64 65 64 | 39 36 29 3b 0d 09 45 58 |Extended|96);..EX|
|000007b0| 54 45 52 4e 41 4c 3b 0d | 0d 7b 2d 2d 2d 2d 2d 2d |TERNAL;.|.{------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 7b 20 |--------|----}.{ |
|00000820| 47 20 4c 20 4f 20 42 20 | 41 20 4c 20 53 20 7d 0d |G L O B |A L S }.|
|00000830| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00000840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 7d 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |---}..PR|OCEDURE |
|000008a0| 43 6c 65 61 72 42 69 74 | 4d 61 70 28 61 42 69 74 |ClearBit|Map(aBit|
|000008b0| 4d 61 70 3a 20 42 69 74 | 4d 61 70 29 3b 0d 0d 09 |Map: Bit|Map);...|
|000008c0| 56 41 52 0d 09 09 6f 6c | 64 50 6f 72 74 20 09 09 |VAR...ol|dPort ..|
|000008d0| 20 20 20 3a 20 47 72 61 | 66 50 74 72 3b 0d 09 09 | : Gra|fPtr;...|
|000008e0| 6f 6c 64 42 69 74 73 20 | 09 09 20 20 20 3a 20 42 |oldBits |.. : B|
|000008f0| 69 74 4d 61 70 3b 0d 09 | 09 74 65 6d 70 50 6f 72 |itMap;..|.tempPor|
|00000900| 74 09 09 20 20 20 3a 20 | 47 72 61 66 50 6f 72 74 |t.. : |GrafPort|
|00000910| 3b 0d 0d 09 42 45 47 49 | 4e 0d 09 09 47 65 74 50 |;...BEGI|N...GetP|
|00000920| 6f 72 74 28 6f 6c 64 50 | 6f 72 74 29 3b 0d 09 09 |ort(oldP|ort);...|
|00000930| 4f 70 65 6e 50 6f 72 74 | 28 40 74 65 6d 70 50 6f |OpenPort|(@tempPo|
|00000940| 72 74 29 3b 0d 09 09 6f | 6c 64 42 69 74 73 20 3a |rt);...o|ldBits :|
|00000950| 3d 20 74 65 6d 70 50 6f | 72 74 2e 70 6f 72 74 42 |= tempPo|rt.portB|
|00000960| 69 74 73 3b 0d 09 09 53 | 65 74 50 6f 72 74 42 69 |its;...S|etPortBi|
|00000970| 74 73 28 61 42 69 74 4d | 61 70 29 3b 0d 09 09 57 |ts(aBitM|ap);...W|
|00000980| 49 54 48 20 74 65 6d 70 | 50 6f 72 74 20 44 4f 20 |ITH temp|Port DO |
|00000990| 42 45 47 49 4e 0d 09 09 | 09 70 6f 72 74 52 65 63 |BEGIN...|.portRec|
|000009a0| 74 20 3a 3d 20 70 6f 72 | 74 42 69 74 73 2e 62 6f |t := por|tBits.bo|
|000009b0| 75 6e 64 73 3b 0d 09 09 | 09 43 6c 69 70 52 65 63 |unds;...|.ClipRec|
|000009c0| 74 28 70 6f 72 74 52 65 | 63 74 29 3b 0d 09 09 09 |t(portRe|ct);....|
|000009d0| 43 6f 70 79 52 67 6e 28 | 63 6c 69 70 52 67 6e 2c |CopyRgn(|clipRgn,|
|000009e0| 20 76 69 73 52 67 6e 29 | 3b 0d 09 09 09 45 72 61 | visRgn)|;....Era|
|000009f0| 73 65 52 65 63 74 28 70 | 6f 72 74 52 65 63 74 29 |seRect(p|ortRect)|
|00000a00| 3b 0d 09 09 45 4e 44 3b | 0d 09 09 53 65 74 50 6f |;...END;|...SetPo|
|00000a10| 72 74 42 69 74 73 28 6f | 6c 64 42 69 74 73 29 3b |rtBits(o|ldBits);|
|00000a20| 0d 09 09 43 6c 6f 73 65 | 50 6f 72 74 28 40 74 65 |...Close|Port(@te|
|00000a30| 6d 70 50 6f 72 74 29 3b | 0d 09 09 53 65 74 50 6f |mpPort);|...SetPo|
|00000a40| 72 74 28 6f 6c 64 50 6f | 72 74 29 3b 0d 09 45 4e |rt(oldPo|rt);..EN|
|00000a50| 44 3b 0d 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |D;..{---|--------|
|00000a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ab0| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 7b 20 54 20 54 20 72 |-------}|.{ T T r|
|00000ac0| 20 61 20 6e 20 73 20 66 | 20 6f 20 72 20 6d 20 65 | a n s f| o r m e|
|00000ad0| 20 72 20 41 20 70 20 70 | 20 6c 20 69 20 63 20 61 | r A p p| l i c a|
|00000ae0| 20 74 20 69 20 6f 20 6e | 20 7d 0d 7b 2d 2d 2d 2d | t i o n| }.{----|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|00000b50| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 54 72 61 6e |.PROCEDU|RE TTran|
|00000b60| 73 66 6f 72 6d 65 72 41 | 70 70 6c 69 63 61 74 69 |sformerA|pplicati|
|00000b70| 6f 6e 2e 49 54 72 61 6e | 73 66 6f 72 6d 65 72 41 |on.ITran|sformerA|
|00000b80| 70 70 6c 69 63 61 74 69 | 6f 6e 28 69 74 73 4d 61 |pplicati|on(itsMa|
|00000b90| 69 6e 46 69 6c 65 54 79 | 70 65 3a 20 4f 53 54 79 |inFileTy|pe: OSTy|
|00000ba0| 70 65 29 3b 0d 0d 09 42 | 45 47 49 4e 0d 09 09 49 |pe);...B|EGIN...I|
|00000bb0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 28 69 74 73 4d |Applicat|ion(itsM|
|00000bc0| 61 69 6e 46 69 6c 65 54 | 79 70 65 29 3b 0d 0d 09 |ainFileT|ype);...|
|00000bd0| 09 52 65 67 69 73 74 65 | 72 53 74 64 54 79 70 65 |.Registe|rStdType|
|00000be0| 28 27 54 42 69 74 4d 61 | 70 56 69 65 77 27 2c 20 |('TBitMa|pView', |
|00000bf0| 27 64 66 6c 74 27 29 3b | 20 09 09 7b 20 53 6f 20 |'dflt');| ..{ So |
|00000c00| 6d 79 20 76 69 65 77 20 | 77 69 6c 6c 20 62 65 20 |my view |will be |
|00000c10| 73 75 62 73 74 69 74 75 | 74 65 64 20 77 68 65 6e |substitu|ted when|
|00000c20| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 20 |........|....... |
|00000c30| 4d 61 63 41 70 70 a8 20 | 63 72 65 61 74 65 73 20 |MacApp. |creates |
|00000c40| 74 68 65 20 22 64 65 66 | 61 75 6c 74 20 76 69 65 |the "def|ault vie|
|00000c50| 77 22 20 7d 0d 0d 09 09 | 67 52 6f 74 61 74 69 6f |w" }....|gRotatio|
|00000c60| 6e 20 3a 3d 20 30 3b 0d | 09 09 67 53 63 61 6c 65 |n := 0;.|..gScale|
|00000c70| 58 20 3a 3d 20 31 3b 0d | 09 09 67 53 63 61 6c 65 |X := 1;.|..gScale|
|00000c80| 59 20 3a 3d 20 31 3b 0d | 09 09 67 43 65 6e 74 65 |Y := 1;.|..gCente|
|00000c90| 72 20 3a 3d 20 67 5a 65 | 72 6f 50 74 3b 0d 09 09 |r := gZe|roPt;...|
|00000ca0| 67 44 65 73 74 69 6e 61 | 74 69 6f 6e 20 3a 3d 20 |gDestina|tion := |
|00000cb0| 67 5a 65 72 6f 50 74 3b | 0d 0d 09 09 49 6e 69 74 |gZeroPt;|....Init|
|00000cc0| 43 75 72 73 6f 72 43 74 | 6c 28 4e 49 4c 29 3b 20 |CursorCt|l(NIL); |
|00000cd0| 09 09 09 09 09 09 09 7b | 20 55 73 65 20 74 68 65 |.......{| Use the|
|00000ce0| 20 63 75 72 73 6f 72 20 | 64 61 74 61 20 69 6e 20 | cursor |data in |
|00000cf0| 74 68 65 20 72 65 73 6f | 75 72 63 65 20 66 6f 72 |the reso|urce for|
|00000d00| 6b 20 7d 0d 0d 09 09 49 | 46 20 67 44 65 61 64 53 |k }....I|F gDeadS|
|00000d10| 74 72 69 70 53 75 70 70 | 72 65 73 73 69 6f 6e 20 |tripSupp|ression |
|00000d20| 54 48 45 4e 20 42 45 47 | 49 4e 0d 09 09 09 49 46 |THEN BEG|IN....IF|
|00000d30| 20 4d 65 6d 62 65 72 28 | 54 4f 62 6a 65 63 74 28 | Member(|TObject(|
|00000d40| 4e 49 4c 29 2c 20 54 42 | 69 74 4d 61 70 56 69 65 |NIL), TB|itMapVie|
|00000d50| 77 29 20 54 48 45 4e 3b | 0d 09 09 09 49 46 20 4d |w) THEN;|....IF M|
|00000d60| 65 6d 62 65 72 28 54 4f | 62 6a 65 63 74 28 4e 49 |ember(TO|bject(NI|
|00000d70| 4c 29 2c 20 54 45 78 74 | 4e 75 6d 62 65 72 54 65 |L), TExt|NumberTe|
|00000d80| 78 74 29 20 54 48 45 4e | 3b 0d 09 09 45 4e 44 3b |xt) THEN|;...END;|
|00000d90| 0d 09 45 4e 44 3b 0d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |..END;..|{-------|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 0d 46 55 |--------|---}..FU|
|00000e00| 4e 43 54 49 4f 4e 20 54 | 54 72 61 6e 73 66 6f 72 |NCTION T|Transfor|
|00000e10| 6d 65 72 41 70 70 6c 69 | 63 61 74 69 6f 6e 2e 41 |merAppli|cation.A|
|00000e20| 6c 72 65 61 64 79 4f 70 | 65 6e 28 66 69 6c 65 4e |lreadyOp|en(fileN|
|00000e30| 61 6d 65 3a 20 53 74 72 | 32 35 35 3b 0d 09 76 6f |ame: Str|255;..vo|
|00000e40| 6c 52 65 66 6e 75 6d 3a | 20 49 4e 54 45 47 45 52 |lRefnum:| INTEGER|
|00000e50| 29 3a 20 54 44 6f 63 75 | 6d 65 6e 74 3b 20 4f 56 |): TDocu|ment; OV|
|00000e60| 45 52 52 49 44 45 3b 0d | 0d 09 42 45 47 49 4e 0d |ERRIDE;.|..BEGIN.|
|00000e70| 09 09 41 6c 72 65 61 64 | 79 4f 70 65 6e 20 3a 3d |..Alread|yOpen :=|
|00000e80| 20 4e 49 4c 3b 0d 09 45 | 4e 44 3b 0d 0d 7b 2d 2d | NIL;..E|ND;..{--|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ef0| 7d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 54 54 72 61 |}..FUNCT|ION TTra|
|00000f00| 6e 73 66 6f 72 6d 65 72 | 41 70 70 6c 69 63 61 74 |nsformer|Applicat|
|00000f10| 69 6f 6e 2e 44 6f 4d 61 | 6b 65 44 6f 63 75 6d 65 |ion.DoMa|keDocume|
|00000f20| 6e 74 28 69 74 73 43 6d | 64 4e 75 6d 62 65 72 3a |nt(itsCm|dNumber:|
|00000f30| 20 43 6d 64 4e 75 6d 62 | 65 72 29 3a 20 54 44 6f | CmdNumb|er): TDo|
|00000f40| 63 75 6d 65 6e 74 3b 0d | 0d 09 56 41 52 0d 09 09 |cument;.|..VAR...|
|00000f50| 61 44 6f 63 75 6d 65 6e | 74 09 09 20 20 20 3a 20 |aDocumen|t.. : |
|00000f60| 54 42 69 74 4d 61 70 44 | 6f 63 75 6d 65 6e 74 3b |TBitMapD|ocument;|
|00000f70| 0d 0d 09 42 45 47 49 4e | 0d 09 09 7b 20 41 6c 6c |...BEGIN|...{ All|
|00000f80| 6f 63 61 74 65 20 61 6e | 64 20 69 6e 69 74 69 61 |ocate an|d initia|
|00000f90| 6c 69 7a 65 20 74 68 65 | 20 64 6f 63 75 6d 65 6e |lize the| documen|
|00000fa0| 74 7d 0d 09 09 4e 45 57 | 28 61 44 6f 63 75 6d 65 |t}...NEW|(aDocume|
|00000fb0| 6e 74 29 3b 0d 09 09 46 | 61 69 6c 4e 49 4c 28 61 |nt);...F|ailNIL(a|
|00000fc0| 44 6f 63 75 6d 65 6e 74 | 29 3b 0d 0d 09 09 61 44 |Document|);....aD|
|00000fd0| 6f 63 75 6d 65 6e 74 2e | 49 42 69 74 4d 61 70 44 |ocument.|IBitMapD|
|00000fe0| 6f 63 75 6d 65 6e 74 3b | 0d 09 09 44 6f 4d 61 6b |ocument;|...DoMak|
|00000ff0| 65 44 6f 63 75 6d 65 6e | 74 20 3a 3d 20 61 44 6f |eDocumen|t := aDo|
|00001000| 63 75 6d 65 6e 74 3b 0d | 09 45 4e 44 3b 0d 0d 7b |cument;.|.END;..{|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001070| 2d 2d 7d 0d 0d 50 52 4f | 43 45 44 55 52 45 20 54 |--}..PRO|CEDURE T|
|00001080| 54 72 61 6e 73 66 6f 72 | 6d 65 72 41 70 70 6c 69 |Transfor|merAppli|
|00001090| 63 61 74 69 6f 6e 2e 48 | 61 6e 64 6c 65 46 69 6e |cation.H|andleFin|
|000010a0| 64 65 72 52 65 71 75 65 | 73 74 3b 20 4f 56 45 52 |derReque|st; OVER|
|000010b0| 52 49 44 45 3b 0d 0d 09 | 42 45 47 49 4e 0d 09 09 |RIDE;...|BEGIN...|
|000010c0| 49 46 20 67 46 69 6c 65 | 43 6f 75 6e 74 20 3e 20 |IF gFile|Count > |
|000010d0| 30 20 54 48 45 4e 0d 09 | 09 09 49 4e 48 45 52 49 |0 THEN..|..INHERI|
|000010e0| 54 45 44 20 48 61 6e 64 | 6c 65 46 69 6e 64 65 72 |TED Hand|leFinder|
|000010f0| 52 65 71 75 65 73 74 3b | 0d 09 45 4e 44 3b 0d 0d |Request;|..END;..|
|00001100| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00001110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001160| 2d 2d 2d 7d 0d 7b 20 54 | 20 42 20 69 20 74 20 4d |---}.{ T| B i t M|
|00001170| 20 61 20 70 20 44 20 6f | 20 63 20 75 20 6d 20 65 | a p D o| c u m e|
|00001180| 20 6e 20 74 20 7d 0d 7b | 2d 2d 2d 2d 2d 2d 2d 2d | n t }.{|--------|
|00001190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 0d 50 52 4f |--------|--}..PRO|
|000011f0| 43 45 44 55 52 45 20 54 | 42 69 74 4d 61 70 44 6f |CEDURE T|BitMapDo|
|00001200| 63 75 6d 65 6e 74 2e 49 | 42 69 74 4d 61 70 44 6f |cument.I|BitMapDo|
|00001210| 63 75 6d 65 6e 74 3b 0d | 0d 09 56 41 52 0d 09 09 |cument;.|..VAR...|
|00001220| 66 69 09 09 09 09 20 20 | 20 3a 20 46 61 69 6c 49 |fi.... | : FailI|
|00001230| 6e 66 6f 3b 0d 09 09 64 | 61 74 61 09 09 09 20 20 |nfo;...d|ata... |
|00001240| 20 3a 20 50 74 72 3b 0d | 09 09 61 42 69 74 4d 61 | : Ptr;.|..aBitMa|
|00001250| 70 20 09 09 20 20 20 3a | 20 42 69 74 4d 61 70 3b |p .. :| BitMap;|
|00001260| 0d 09 09 6f 6c 64 50 65 | 72 6d 20 09 09 20 20 20 |...oldPe|rm .. |
|00001270| 3a 20 42 6f 6f 6c 65 61 | 6e 3b 0d 09 09 62 6d 53 |: Boolea|n;...bmS|
|00001280| 69 7a 65 09 09 09 20 20 | 20 3a 20 4c 4f 4e 47 49 |ize... | : LONGI|
|00001290| 4e 54 3b 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |NT;...PR|OCEDURE |
|000012a0| 48 61 6e 64 6c 65 46 61 | 69 6c 75 72 65 28 65 72 |HandleFa|ilure(er|
|000012b0| 72 6f 72 3a 20 4f 53 45 | 72 72 3b 20 6d 65 73 73 |ror: OSE|rr; mess|
|000012c0| 61 67 65 3a 20 4c 4f 4e | 47 49 4e 54 29 3b 0d 0d |age: LON|GINT);..|
|000012d0| 09 09 42 45 47 49 4e 0d | 09 09 09 46 72 65 65 3b |..BEGIN.|...Free;|
|000012e0| 0d 09 09 45 4e 44 3b 0d | 0d 09 42 45 47 49 4e 0d |...END;.|..BEGIN.|
|000012f0| 09 09 66 4f 72 69 67 42 | 69 74 4d 61 70 2e 62 61 |..fOrigB|itMap.ba|
|00001300| 73 65 41 64 64 72 20 3a | 3d 20 4e 49 4c 3b 0d 09 |seAddr :|= NIL;..|
|00001310| 09 49 44 6f 63 75 6d 65 | 6e 74 28 67 4d 61 69 6e |.IDocume|nt(gMain|
|00001320| 46 69 6c 65 54 79 70 65 | 2c 20 6b 53 69 67 6e 61 |FileType|, kSigna|
|00001330| 74 75 72 65 2c 20 6b 55 | 73 65 73 44 61 74 61 46 |ture, kU|sesDataF|
|00001340| 6f 72 6b 2c 20 4e 4f 54 | 20 6b 55 73 65 73 52 73 |ork, NOT| kUsesRs|
|00001350| 72 63 46 6f 72 6b 2c 20 | 4e 4f 54 20 6b 44 61 74 |rcFork, |NOT kDat|
|00001360| 61 4f 70 65 6e 2c 0d 09 | 09 09 09 20 20 4e 4f 54 |aOpen,..|... NOT|
|00001370| 20 6b 52 73 72 63 4f 70 | 65 6e 29 3b 0d 0d 09 09 | kRsrcOp|en);....|
|00001380| 57 49 54 48 20 66 4f 72 | 69 67 42 69 74 4d 61 70 |WITH fOr|igBitMap|
|00001390| 20 44 4f 20 42 45 47 49 | 4e 0d 09 09 09 72 6f 77 | DO BEGI|N....row|
|000013a0| 42 79 74 65 73 20 3a 3d | 20 6b 52 6f 77 42 79 74 |Bytes :=| kRowByt|
|000013b0| 65 73 3b 0d 09 09 09 57 | 49 54 48 20 62 6f 75 6e |es;....W|ITH boun|
|000013c0| 64 73 20 44 4f 20 42 45 | 47 49 4e 0d 09 09 09 09 |ds DO BE|GIN.....|
|000013d0| 74 6f 70 20 3a 3d 20 30 | 3b 0d 09 09 09 09 6c 65 |top := 0|;.....le|
|000013e0| 66 74 20 3a 3d 20 30 3b | 0d 09 09 09 09 62 6f 74 |ft := 0;|.....bot|
|000013f0| 74 6f 6d 20 3a 3d 20 6b | 48 65 69 67 68 74 3b 0d |tom := k|Height;.|
|00001400| 09 09 09 09 72 69 67 68 | 74 20 3a 3d 20 6b 57 69 |....righ|t := kWi|
|00001410| 64 74 68 3b 0d 09 09 09 | 09 62 6d 53 69 7a 65 20 |dth;....|.bmSize |
|00001420| 3a 3d 20 4c 4f 4e 47 49 | 4e 54 28 72 6f 77 42 79 |:= LONGI|NT(rowBy|
|00001430| 74 65 73 29 20 2a 20 62 | 6f 74 74 6f 6d 3b 0d 09 |tes) * b|ottom;..|
|00001440| 09 09 45 4e 44 3b 0d 09 | 09 45 4e 44 3b 0d 0d 09 |..END;..|.END;...|
|00001450| 09 43 61 74 63 68 46 61 | 69 6c 75 72 65 73 28 66 |.CatchFa|ilures(f|
|00001460| 69 2c 20 48 61 6e 64 6c | 65 46 61 69 6c 75 72 65 |i, Handl|eFailure|
|00001470| 29 3b 0d 0d 09 09 6f 6c | 64 50 65 72 6d 20 3a 3d |);....ol|dPerm :=|
|00001480| 20 50 65 72 6d 41 6c 6c | 6f 63 61 74 69 6f 6e 28 | PermAll|ocation(|
|00001490| 54 52 55 45 29 3b 0d 09 | 09 64 61 74 61 20 3a 3d |TRUE);..|.data :=|
|000014a0| 20 4e 65 77 50 74 72 43 | 6c 65 61 72 28 62 6d 53 | NewPtrC|lear(bmS|
|000014b0| 69 7a 65 29 3b 0d 09 09 | 6f 6c 64 50 65 72 6d 20 |ize);...|oldPerm |
|000014c0| 3a 3d 20 50 65 72 6d 41 | 6c 6c 6f 63 61 74 69 6f |:= PermA|llocatio|
|000014d0| 6e 28 6f 6c 64 50 65 72 | 6d 29 3b 0d 09 09 46 61 |n(oldPer|m);...Fa|
|000014e0| 69 6c 4e 49 4c 28 64 61 | 74 61 29 3b 0d 09 09 66 |ilNIL(da|ta);...f|
|000014f0| 4f 72 69 67 42 69 74 4d | 61 70 2e 62 61 73 65 41 |OrigBitM|ap.baseA|
|00001500| 64 64 72 20 3a 3d 20 64 | 61 74 61 3b 0d 0d 09 09 |ddr := d|ata;....|
|00001510| 53 75 63 63 65 73 73 28 | 66 69 29 3b 0d 09 45 4e |Success(|fi);..EN|
|00001520| 44 3b 0d 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |D;..{---|--------|
|00001530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001580| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 0d 50 52 4f 43 45 44 |-------}|..PROCED|
|00001590| 55 52 45 20 54 42 69 74 | 4d 61 70 44 6f 63 75 6d |URE TBit|MapDocum|
|000015a0| 65 6e 74 2e 46 72 65 65 | 3b 20 4f 56 45 52 52 49 |ent.Free|; OVERRI|
|000015b0| 44 45 3b 0d 0d 09 42 45 | 47 49 4e 0d 09 09 44 69 |DE;...BE|GIN...Di|
|000015c0| 73 70 6f 73 49 66 50 74 | 72 28 66 4f 72 69 67 42 |sposIfPt|r(fOrigB|
|000015d0| 69 74 4d 61 70 2e 62 61 | 73 65 41 64 64 72 29 3b |itMap.ba|seAddr);|
|000015e0| 0d 09 09 49 4e 48 45 52 | 49 54 45 44 20 46 72 65 |...INHER|ITED Fre|
|000015f0| 65 3b 0d 09 45 4e 44 3b | 0d 0d 7b 2d 2d 2d 2d 2d |e;..END;|..{-----|
|00001600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 0d |--------|-----}..|
|00001660| 50 52 4f 43 45 44 55 52 | 45 20 54 42 69 74 4d 61 |PROCEDUR|E TBitMa|
|00001670| 70 44 6f 63 75 6d 65 6e | 74 2e 43 6f 70 79 4f 72 |pDocumen|t.CopyOr|
|00001680| 69 67 42 69 74 73 28 61 | 42 69 74 4d 61 70 3a 20 |igBits(a|BitMap: |
|00001690| 42 69 74 4d 61 70 29 3b | 0d 0d 09 56 41 52 0d 09 |BitMap);|...VAR..|
|000016a0| 09 73 6f 75 72 63 65 42 | 69 74 4d 61 70 09 20 20 |.sourceB|itMap. |
|000016b0| 20 3a 20 42 69 74 4d 61 | 70 3b 0d 0d 09 42 45 47 | : BitMa|p;...BEG|
|000016c0| 49 4e 0d 09 09 73 6f 75 | 72 63 65 42 69 74 4d 61 |IN...sou|rceBitMa|
|000016d0| 70 20 3a 3d 20 66 4f 72 | 69 67 42 69 74 4d 61 70 |p := fOr|igBitMap|
|000016e0| 3b 0d 09 09 43 6f 70 79 | 42 69 74 73 28 73 6f 75 |;...Copy|Bits(sou|
|000016f0| 72 63 65 42 69 74 4d 61 | 70 2c 20 61 42 69 74 4d |rceBitMa|p, aBitM|
|00001700| 61 70 2c 20 73 6f 75 72 | 63 65 42 69 74 4d 61 70 |ap, sour|ceBitMap|
|00001710| 2e 62 6f 75 6e 64 73 2c | 20 73 6f 75 72 63 65 42 |.bounds,| sourceB|
|00001720| 69 74 4d 61 70 2e 62 6f | 75 6e 64 73 2c 20 73 72 |itMap.bo|unds, sr|
|00001730| 63 43 6f 70 79 2c 20 4e | 49 4c 29 3b 0d 09 45 4e |cCopy, N|IL);..EN|
|00001740| 44 3b 0d 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |D;..{---|--------|
|00001750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017a0| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 0d 50 52 4f 43 45 44 |-------}|..PROCED|
|000017b0| 55 52 45 20 54 42 69 74 | 4d 61 70 44 6f 63 75 6d |URE TBit|MapDocum|
|000017c0| 65 6e 74 2e 44 6f 52 65 | 61 64 28 61 52 65 66 4e |ent.DoRe|ad(aRefN|
|000017d0| 75 6d 3a 20 49 4e 54 45 | 47 45 52 3b 20 72 73 72 |um: INTE|GER; rsr|
|000017e0| 63 45 78 69 73 74 73 2c | 20 66 6f 72 50 72 69 6e |cExists,| forPrin|
|000017f0| 74 69 6e 67 3a 20 42 6f | 6f 6c 65 61 6e 29 3b 20 |ting: Bo|olean); |
|00001800| 4f 56 45 52 52 49 44 45 | 3b 0d 0d 09 42 45 47 49 |OVERRIDE|;...BEGI|
|00001810| 4e 0d 09 09 47 65 74 54 | 68 65 50 69 63 74 75 72 |N...GetT|hePictur|
|00001820| 65 28 61 52 65 66 4e 75 | 6d 2c 20 66 4f 72 69 67 |e(aRefNu|m, fOrig|
|00001830| 42 69 74 4d 61 70 2e 62 | 61 73 65 41 64 64 72 29 |BitMap.b|aseAddr)|
|00001840| 3b 0d 09 45 4e 44 3b 0d | 0d 7b 2d 2d 2d 2d 2d 2d |;..END;.|.{------|
|00001850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 0d 50 |--------|----}..P|
|000018b0| 52 4f 43 45 44 55 52 45 | 20 54 42 69 74 4d 61 70 |ROCEDURE| TBitMap|
|000018c0| 44 6f 63 75 6d 65 6e 74 | 2e 46 69 65 6c 64 73 28 |Document|.Fields(|
|000018d0| 50 52 4f 43 45 44 55 52 | 45 20 44 6f 54 6f 46 69 |PROCEDUR|E DoToFi|
|000018e0| 65 6c 64 28 66 69 65 6c | 64 4e 61 6d 65 3a 20 53 |eld(fiel|dName: S|
|000018f0| 74 72 32 35 35 3b 20 66 | 69 65 6c 64 41 64 64 72 |tr255; f|ieldAddr|
|00001900| 3a 20 50 74 72 3b 0d 09 | 09 09 09 09 09 09 09 09 |: Ptr;..|........|
|00001910| 09 09 09 09 20 66 69 65 | 6c 64 54 79 70 65 3a 20 |.... fie|ldType: |
|00001920| 49 4e 54 45 47 45 52 29 | 29 3b 20 4f 56 45 52 52 |INTEGER)|); OVERR|
|00001930| 49 44 45 3b 0d 0d 09 42 | 45 47 49 4e 0d 09 09 44 |IDE;...B|EGIN...D|
|00001940| 6f 54 6f 46 69 65 6c 64 | 28 27 54 42 69 74 4d 61 |oToField|('TBitMa|
|00001950| 70 44 6f 63 75 6d 65 6e | 74 27 2c 20 4e 49 4c 2c |pDocumen|t', NIL,|
|00001960| 20 62 43 6c 61 73 73 29 | 3b 0d 09 09 44 6f 54 6f | bClass)|;...DoTo|
|00001970| 46 69 65 6c 64 28 27 66 | 4f 72 69 67 42 69 74 4d |Field('f|OrigBitM|
|00001980| 61 70 27 2c 20 4e 49 4c | 2c 20 62 54 69 74 6c 65 |ap', NIL|, bTitle|
|00001990| 29 3b 0d 09 09 44 6f 54 | 6f 46 69 65 6c 64 28 27 |);...DoT|oField('|
|000019a0| 20 20 62 61 73 65 41 64 | 64 72 27 2c 20 40 66 4f | baseAd|dr', @fO|
|000019b0| 72 69 67 42 69 74 4d 61 | 70 2e 62 61 73 65 41 64 |rigBitMa|p.baseAd|
|000019c0| 64 72 2c 20 62 50 6f 69 | 6e 74 65 72 29 3b 0d 09 |dr, bPoi|nter);..|
|000019d0| 09 44 6f 54 6f 46 69 65 | 6c 64 28 27 20 20 72 6f |.DoToFie|ld(' ro|
|000019e0| 77 42 79 74 65 73 27 2c | 20 40 66 4f 72 69 67 42 |wBytes',| @fOrigB|
|000019f0| 69 74 4d 61 70 2e 72 6f | 77 42 79 74 65 73 2c 20 |itMap.ro|wBytes, |
|00001a00| 62 49 6e 74 65 67 65 72 | 29 3b 0d 09 09 44 6f 54 |bInteger|);...DoT|
|00001a10| 6f 46 69 65 6c 64 28 27 | 20 20 62 6f 75 6e 64 73 |oField('| bounds|
|00001a20| 27 2c 20 40 66 4f 72 69 | 67 42 69 74 4d 61 70 2e |', @fOri|gBitMap.|
|00001a30| 62 6f 75 6e 64 73 2c 20 | 62 52 65 63 74 29 3b 0d |bounds, |bRect);.|
|00001a40| 0d 09 09 49 4e 48 45 52 | 49 54 45 44 20 46 69 65 |...INHER|ITED Fie|
|00001a50| 6c 64 73 28 44 6f 54 6f | 46 69 65 6c 64 29 3b 0d |lds(DoTo|Field);.|
|00001a60| 09 45 4e 44 3b 0d 0d 7b | 2d 2d 2d 2d 2d 2d 2d 2d |.END;..{|--------|
|00001a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 0d 50 52 4f |--------|--}..PRO|
|00001ad0| 43 45 44 55 52 45 20 54 | 42 69 74 4d 61 70 44 6f |CEDURE T|BitMapDo|
|00001ae0| 63 75 6d 65 6e 74 2e 47 | 65 74 4f 72 69 67 42 69 |cument.G|etOrigBi|
|00001af0| 74 4d 61 70 28 56 41 52 | 20 61 42 69 74 4d 61 70 |tMap(VAR| aBitMap|
|00001b00| 3a 20 42 69 74 4d 61 70 | 29 3b 0d 0d 09 42 45 47 |: BitMap|);...BEG|
|00001b10| 49 4e 0d 09 09 61 42 69 | 74 4d 61 70 20 3a 3d 20 |IN...aBi|tMap := |
|00001b20| 66 4f 72 69 67 42 69 74 | 4d 61 70 3b 0d 09 45 4e |fOrigBit|Map;..EN|
|00001b30| 44 3b 0d 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |D;..{---|--------|
|00001b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b90| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 7b 20 54 20 42 20 69 |-------}|.{ T B i|
|00001ba0| 20 74 20 4d 20 61 20 70 | 20 56 20 69 20 65 20 77 | t M a p| V i e w|
|00001bb0| 20 7d 0d 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | }.{----|--------|
|00001bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c10| 2d 2d 2d 2d 2d 2d 7d 0d | 0d 50 52 4f 43 45 44 55 |------}.|.PROCEDU|
|00001c20| 52 45 20 54 42 69 74 4d | 61 70 56 69 65 77 2e 49 |RE TBitM|apView.I|
|00001c30| 52 65 73 28 69 74 73 44 | 6f 63 75 6d 65 6e 74 3a |Res(itsD|ocument:|
|00001c40| 20 54 44 6f 63 75 6d 65 | 6e 74 3b 20 69 74 73 53 | TDocume|nt; itsS|
|00001c50| 75 70 65 72 76 69 65 77 | 3a 20 54 56 69 65 77 3b |uperview|: TView;|
|00001c60| 0d 09 56 41 52 20 69 74 | 73 50 61 72 61 6d 73 3a |..VAR it|sParams:|
|00001c70| 20 50 74 72 29 3b 20 4f | 56 45 52 52 49 44 45 3b | Ptr); O|VERRIDE;|
|00001c80| 0d 0d 09 56 41 52 0d 09 | 09 66 69 09 09 09 09 20 |...VAR..|.fi.... |
|00001c90| 20 20 3a 20 46 61 69 6c | 49 6e 66 6f 3b 0d 09 09 | : Fail|Info;...|
|00001ca0| 64 61 74 61 09 09 09 20 | 20 20 3a 20 50 74 72 3b |data... | : Ptr;|
|00001cb0| 0d 09 09 61 42 69 74 4d | 61 70 20 09 09 20 20 20 |...aBitM|ap .. |
|00001cc0| 3a 20 42 69 74 4d 61 70 | 3b 0d 09 09 6f 6c 64 50 |: BitMap|;...oldP|
|00001cd0| 65 72 6d 20 09 09 20 20 | 20 3a 20 42 6f 6f 6c 65 |erm .. | : Boole|
|00001ce0| 61 6e 3b 0d 09 09 62 6d | 53 69 7a 65 09 09 09 20 |an;...bm|Size... |
|00001cf0| 20 20 3a 20 4c 4f 4e 47 | 49 4e 54 3b 0d 0d 09 50 | : LONG|INT;...P|
|00001d00| 52 4f 43 45 44 55 52 45 | 20 48 61 6e 64 6c 65 46 |ROCEDURE| HandleF|
|00001d10| 61 69 6c 75 72 65 28 65 | 72 72 6f 72 3a 20 4f 53 |ailure(e|rror: OS|
|00001d20| 45 72 72 3b 20 6d 65 73 | 73 61 67 65 3a 20 4c 4f |Err; mes|sage: LO|
|00001d30| 4e 47 49 4e 54 29 3b 0d | 0d 09 09 42 45 47 49 4e |NGINT);.|...BEGIN|
|00001d40| 0d 09 09 09 46 72 65 65 | 3b 0d 09 09 45 4e 44 3b |....Free|;...END;|
|00001d50| 0d 0d 09 42 45 47 49 4e | 0d 09 09 66 54 72 61 6e |...BEGIN|...fTran|
|00001d60| 73 42 69 74 4d 61 70 2e | 62 61 73 65 41 64 64 72 |sBitMap.|baseAddr|
|00001d70| 20 3a 3d 20 4e 49 4c 3b | 0d 09 09 49 4e 48 45 52 | := NIL;|...INHER|
|00001d80| 49 54 45 44 20 49 52 65 | 73 28 69 74 73 44 6f 63 |ITED IRe|s(itsDoc|
|00001d90| 75 6d 65 6e 74 2c 20 69 | 74 73 53 75 70 65 72 76 |ument, i|tsSuperv|
|00001da0| 69 65 77 2c 20 69 74 73 | 50 61 72 61 6d 73 29 3b |iew, its|Params);|
|00001db0| 0d 0d 09 09 57 49 54 48 | 20 66 54 72 61 6e 73 42 |....WITH| fTransB|
|00001dc0| 69 74 4d 61 70 20 44 4f | 20 42 45 47 49 4e 0d 09 |itMap DO| BEGIN..|
|00001dd0| 09 09 72 6f 77 42 79 74 | 65 73 20 3a 3d 20 6b 52 |..rowByt|es := kR|
|00001de0| 6f 77 42 79 74 65 73 3b | 0d 09 09 09 57 49 54 48 |owBytes;|....WITH|
|00001df0| 20 62 6f 75 6e 64 73 20 | 44 4f 20 42 45 47 49 4e | bounds |DO BEGIN|
|00001e00| 0d 09 09 09 09 74 6f 70 | 20 3a 3d 20 30 3b 0d 09 |.....top| := 0;..|
|00001e10| 09 09 09 6c 65 66 74 20 | 3a 3d 20 30 3b 0d 09 09 |...left |:= 0;...|
|00001e20| 09 09 62 6f 74 74 6f 6d | 20 3a 3d 20 6b 48 65 69 |..bottom| := kHei|
|00001e30| 67 68 74 3b 0d 09 09 09 | 09 72 69 67 68 74 20 3a |ght;....|.right :|
|00001e40| 3d 20 6b 57 69 64 74 68 | 3b 0d 09 09 09 09 62 6d |= kWidth|;.....bm|
|00001e50| 53 69 7a 65 20 3a 3d 20 | 4c 4f 4e 47 49 4e 54 28 |Size := |LONGINT(|
|00001e60| 72 6f 77 42 79 74 65 73 | 29 20 2a 20 62 6f 74 74 |rowBytes|) * bott|
|00001e70| 6f 6d 3b 0d 09 09 09 45 | 4e 44 3b 0d 09 09 45 4e |om;....E|ND;...EN|
|00001e80| 44 3b 0d 0d 09 09 43 61 | 74 63 68 46 61 69 6c 75 |D;....Ca|tchFailu|
|00001e90| 72 65 73 28 66 69 2c 20 | 48 61 6e 64 6c 65 46 61 |res(fi, |HandleFa|
|00001ea0| 69 6c 75 72 65 29 3b 0d | 0d 09 09 6f 6c 64 50 65 |ilure);.|...oldPe|
|00001eb0| 72 6d 20 3a 3d 20 50 65 | 72 6d 41 6c 6c 6f 63 61 |rm := Pe|rmAlloca|
|00001ec0| 74 69 6f 6e 28 54 52 55 | 45 29 3b 0d 09 09 64 61 |tion(TRU|E);...da|
|00001ed0| 74 61 20 3a 3d 20 4e 65 | 77 50 74 72 43 6c 65 61 |ta := Ne|wPtrClea|
|00001ee0| 72 28 62 6d 53 69 7a 65 | 29 3b 0d 09 09 6f 6c 64 |r(bmSize|);...old|
|00001ef0| 50 65 72 6d 20 3a 3d 20 | 50 65 72 6d 41 6c 6c 6f |Perm := |PermAllo|
|00001f00| 63 61 74 69 6f 6e 28 6f | 6c 64 50 65 72 6d 29 3b |cation(o|ldPerm);|
|00001f10| 0d 09 09 46 61 69 6c 4e | 49 4c 28 64 61 74 61 29 |...FailN|IL(data)|
|00001f20| 3b 0d 09 09 66 54 72 61 | 6e 73 42 69 74 4d 61 70 |;...fTra|nsBitMap|
|00001f30| 2e 62 61 73 65 41 64 64 | 72 20 3a 3d 20 64 61 74 |.baseAdd|r := dat|
|00001f40| 61 3b 0d 0d 09 09 53 75 | 63 63 65 73 73 28 66 69 |a;....Su|ccess(fi|
|00001f50| 29 3b 0d 0d 09 09 61 42 | 69 74 4d 61 70 20 3a 3d |);....aB|itMap :=|
|00001f60| 20 66 54 72 61 6e 73 42 | 69 74 4d 61 70 3b 0d 09 | fTransB|itMap;..|
|00001f70| 09 54 42 69 74 4d 61 70 | 44 6f 63 75 6d 65 6e 74 |.TBitMap|Document|
|00001f80| 28 66 44 6f 63 75 6d 65 | 6e 74 29 2e 43 6f 70 79 |(fDocume|nt).Copy|
|00001f90| 4f 72 69 67 42 69 74 73 | 28 61 42 69 74 4d 61 70 |OrigBits|(aBitMap|
|00001fa0| 29 3b 0d 09 45 4e 44 3b | 0d 0d 7b 2d 2d 2d 2d 2d |);..END;|..{-----|
|00001fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 0d |--------|-----}..|
|00002010| 50 52 4f 43 45 44 55 52 | 45 20 54 42 69 74 4d 61 |PROCEDUR|E TBitMa|
|00002020| 70 56 69 65 77 2e 46 72 | 65 65 3b 20 4f 56 45 52 |pView.Fr|ee; OVER|
|00002030| 52 49 44 45 3b 0d 0d 09 | 42 45 47 49 4e 0d 09 09 |RIDE;...|BEGIN...|
|00002040| 44 69 73 70 6f 73 49 66 | 50 74 72 28 66 54 72 61 |DisposIf|Ptr(fTra|
|00002050| 6e 73 42 69 74 4d 61 70 | 2e 62 61 73 65 41 64 64 |nsBitMap|.baseAdd|
|00002060| 72 29 3b 0d 09 09 49 4e | 48 45 52 49 54 45 44 20 |r);...IN|HERITED |
|00002070| 46 72 65 65 3b 0d 09 45 | 4e 44 3b 0d 0d 7b 2d 2d |Free;..E|ND;..{--|
|00002080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020e0| 7d 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 54 42 69 |}..PROCE|DURE TBi|
|000020f0| 74 4d 61 70 56 69 65 77 | 2e 43 61 6c 6c 54 72 61 |tMapView|.CallTra|
|00002100| 6e 73 66 6f 72 6d 28 72 | 6f 74 61 74 69 6f 6e 3a |nsform(r|otation:|
|00002110| 20 49 4e 54 45 47 45 52 | 3b 20 53 78 2c 20 53 79 | INTEGER|; Sx, Sy|
|00002120| 3a 20 45 78 74 65 6e 64 | 65 64 29 3b 0d 0d 09 56 |: Extend|ed);...V|
|00002130| 41 52 0d 09 09 73 6f 75 | 72 63 65 42 69 74 4d 61 |AR...sou|rceBitMa|
|00002140| 70 09 20 20 20 3a 20 42 | 69 74 4d 61 70 3b 0d 09 |p. : B|itMap;..|
|00002150| 09 64 65 73 74 42 69 74 | 4d 61 70 09 09 20 20 20 |.destBit|Map.. |
|00002160| 3a 20 42 69 74 4d 61 70 | 3b 0d 09 09 63 65 6e 74 |: BitMap|;...cent|
|00002170| 65 72 09 09 09 20 20 20 | 3a 20 50 6f 69 6e 74 3b |er... |: Point;|
|00002180| 0d 09 09 64 65 73 74 69 | 6e 61 74 69 6f 6e 20 09 |...desti|nation .|
|00002190| 20 20 20 3a 20 50 6f 69 | 6e 74 3b 0d 0d 09 42 45 | : Poi|nt;...BE|
|000021a0| 47 49 4e 0d 09 09 54 42 | 69 74 4d 61 70 44 6f 63 |GIN...TB|itMapDoc|
|000021b0| 75 6d 65 6e 74 28 66 44 | 6f 63 75 6d 65 6e 74 29 |ument(fD|ocument)|
|000021c0| 2e 47 65 74 4f 72 69 67 | 42 69 74 4d 61 70 28 73 |.GetOrig|BitMap(s|
|000021d0| 6f 75 72 63 65 42 69 74 | 4d 61 70 29 3b 0d 09 09 |ourceBit|Map);...|
|000021e0| 64 65 73 74 42 69 74 4d | 61 70 20 3a 3d 20 66 54 |destBitM|ap := fT|
|000021f0| 72 61 6e 73 42 69 74 4d | 61 70 3b 0d 0d 09 09 57 |ransBitM|ap;....W|
|00002200| 49 54 48 20 73 6f 75 72 | 63 65 42 69 74 4d 61 70 |ITH sour|ceBitMap|
|00002210| 2e 62 6f 75 6e 64 73 20 | 44 4f 20 42 45 47 49 4e |.bounds |DO BEGIN|
|00002220| 0d 09 09 09 63 65 6e 74 | 65 72 2e 68 20 3a 3d 20 |....cent|er.h := |
|00002230| 72 69 67 68 74 20 44 49 | 56 20 32 3b 0d 09 09 09 |right DI|V 2;....|
|00002240| 63 65 6e 74 65 72 2e 76 | 20 3a 3d 20 62 6f 74 74 |center.v| := bott|
|00002250| 6f 6d 20 44 49 56 20 32 | 3b 0d 09 09 45 4e 44 3b |om DIV 2|;...END;|
|00002260| 0d 0d 09 09 57 49 54 48 | 20 64 65 73 74 42 69 74 |....WITH| destBit|
|00002270| 4d 61 70 2e 62 6f 75 6e | 64 73 20 44 4f 20 42 45 |Map.boun|ds DO BE|
|00002280| 47 49 4e 0d 09 09 09 64 | 65 73 74 69 6e 61 74 69 |GIN....d|estinati|
|00002290| 6f 6e 2e 68 20 3a 3d 20 | 72 69 67 68 74 20 44 49 |on.h := |right DI|
|000022a0| 56 20 32 3b 0d 09 09 09 | 64 65 73 74 69 6e 61 74 |V 2;....|destinat|
|000022b0| 69 6f 6e 2e 76 20 3a 3d | 20 62 6f 74 74 6f 6d 20 |ion.v :=| bottom |
|000022c0| 44 49 56 20 32 3b 0d 09 | 09 45 4e 44 3b 0d 0d 09 |DIV 2;..|.END;...|
|000022d0| 09 44 6f 54 72 61 6e 73 | 66 6f 72 6d 28 73 6f 75 |.DoTrans|form(sou|
|000022e0| 72 63 65 42 69 74 4d 61 | 70 2c 20 64 65 73 74 42 |rceBitMa|p, destB|
|000022f0| 69 74 4d 61 70 2c 20 63 | 65 6e 74 65 72 2c 20 64 |itMap, c|enter, d|
|00002300| 65 73 74 69 6e 61 74 69 | 6f 6e 2c 20 72 6f 74 61 |estinati|on, rota|
|00002310| 74 69 6f 6e 2c 20 58 38 | 30 74 6f 58 39 36 28 53 |tion, X8|0toX96(S|
|00002320| 78 29 2c 0d 09 09 09 09 | 09 58 38 30 74 6f 58 39 |x),.....|.X80toX9|
|00002330| 36 28 53 79 29 29 3b 0d | 09 09 46 6f 72 63 65 52 |6(Sy));.|..ForceR|
|00002340| 65 64 72 61 77 3b 0d 09 | 45 4e 44 3b 0d 0d 7b 2d |edraw;..|END;..{-|
|00002350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023b0| 2d 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 54 42 69 |-}..FUNC|TION TBi|
|000023c0| 74 4d 61 70 56 69 65 77 | 2e 44 6f 4d 65 6e 75 43 |tMapView|.DoMenuC|
|000023d0| 6f 6d 6d 61 6e 64 28 61 | 43 6d 64 4e 75 6d 62 65 |ommand(a|CmdNumbe|
|000023e0| 72 3a 20 43 6d 64 4e 75 | 6d 62 65 72 29 3a 20 54 |r: CmdNu|mber): T|
|000023f0| 43 6f 6d 6d 61 6e 64 3b | 20 4f 56 45 52 52 49 44 |Command;| OVERRID|
|00002400| 45 3b 0d 0d 09 56 41 52 | 0d 09 09 61 42 69 74 4d |E;...VAR|...aBitM|
|00002410| 61 70 20 09 09 20 20 20 | 3a 20 42 69 74 4d 61 70 |ap .. |: BitMap|
|00002420| 3b 0d 09 09 61 57 69 6e | 64 6f 77 20 09 09 20 20 |;...aWin|dow .. |
|00002430| 20 3a 20 54 57 69 6e 64 | 6f 77 3b 0d 09 09 64 69 | : TWind|ow;...di|
|00002440| 73 6d 69 73 73 65 72 09 | 09 20 20 20 3a 20 49 44 |smisser.|. : ID|
|00002450| 54 79 70 65 3b 0d 09 09 | 73 6f 75 72 63 65 42 69 |Type;...|sourceBi|
|00002460| 74 4d 61 70 09 20 20 20 | 3a 20 42 69 74 4d 61 70 |tMap. |: BitMap|
|00002470| 3b 0d 09 09 64 65 73 74 | 42 69 74 4d 61 70 09 09 |;...dest|BitMap..|
|00002480| 20 20 20 3a 20 42 69 74 | 4d 61 70 3b 0d 0d 09 42 | : Bit|Map;...B|
|00002490| 45 47 49 4e 0d 09 09 44 | 6f 4d 65 6e 75 43 6f 6d |EGIN...D|oMenuCom|
|000024a0| 6d 61 6e 64 20 3a 3d 20 | 67 4e 6f 43 68 61 6e 67 |mand := |gNoChang|
|000024b0| 65 73 3b 0d 09 09 43 41 | 53 45 20 61 43 6d 64 4e |es;...CA|SE aCmdN|
|000024c0| 75 6d 62 65 72 20 4f 46 | 0d 09 09 09 63 4e 6f 72 |umber OF|....cNor|
|000024d0| 6d 61 6c 3a 20 42 45 47 | 49 4e 0d 09 09 09 09 61 |mal: BEG|IN.....a|
|000024e0| 42 69 74 4d 61 70 20 3a | 3d 20 66 54 72 61 6e 73 |BitMap :|= fTrans|
|000024f0| 42 69 74 4d 61 70 3b 0d | 09 09 09 09 54 42 69 74 |BitMap;.|....TBit|
|00002500| 4d 61 70 44 6f 63 75 6d | 65 6e 74 28 66 44 6f 63 |MapDocum|ent(fDoc|
|00002510| 75 6d 65 6e 74 29 2e 43 | 6f 70 79 4f 72 69 67 42 |ument).C|opyOrigB|
|00002520| 69 74 73 28 61 42 69 74 | 4d 61 70 29 3b 0d 09 09 |its(aBit|Map);...|
|00002530| 09 09 46 6f 72 63 65 52 | 65 64 72 61 77 3b 0d 09 |..ForceR|edraw;..|
|00002540| 09 09 45 4e 44 3b 0d 09 | 09 09 63 52 6f 74 39 30 |..END;..|..cRot90|
|00002550| 3a 20 42 45 47 49 4e 0d | 09 09 09 09 43 61 6c 6c |: BEGIN.|....Call|
|00002560| 54 72 61 6e 73 66 6f 72 | 6d 28 39 30 2c 20 31 2e |Transfor|m(90, 1.|
|00002570| 30 2c 20 31 2e 30 29 3b | 0d 09 09 09 45 4e 44 3b |0, 1.0);|....END;|
|00002580| 0d 09 09 09 63 52 6f 74 | 34 35 3a 20 42 45 47 49 |....cRot|45: BEGI|
|00002590| 4e 0d 09 09 09 09 43 61 | 6c 6c 54 72 61 6e 73 66 |N.....Ca|llTransf|
|000025a0| 6f 72 6d 28 34 35 2c 20 | 31 2e 30 2c 20 31 2e 30 |orm(45, |1.0, 1.0|
|000025b0| 29 3b 0d 09 09 09 45 4e | 44 3b 0d 09 09 09 63 53 |);....EN|D;....cS|
|000025c0| 63 61 6c 65 32 3a 20 42 | 45 47 49 4e 0d 09 09 09 |cale2: B|EGIN....|
|000025d0| 09 43 61 6c 6c 54 72 61 | 6e 73 66 6f 72 6d 28 30 |.CallTra|nsform(0|
|000025e0| 2c 20 32 2e 30 2c 20 32 | 2e 30 29 3b 0d 09 09 09 |, 2.0, 2|.0);....|
|000025f0| 45 4e 44 3b 0d 09 09 09 | 63 53 63 61 6c 65 48 61 |END;....|cScaleHa|
|00002600| 6c 66 3a 20 42 45 47 49 | 4e 0d 09 09 09 09 43 61 |lf: BEGI|N.....Ca|
|00002610| 6c 6c 54 72 61 6e 73 66 | 6f 72 6d 28 30 2c 20 30 |llTransf|orm(0, 0|
|00002620| 2e 35 2c 20 30 2e 35 29 | 3b 0d 09 09 09 45 4e 44 |.5, 0.5)|;....END|
|00002630| 3b 0d 09 09 09 63 52 6f | 74 34 35 53 63 61 6c 65 |;....cRo|t45Scale|
|00002640| 48 61 6c 66 3a 20 42 45 | 47 49 4e 0d 09 09 09 09 |Half: BE|GIN.....|
|00002650| 43 61 6c 6c 54 72 61 6e | 73 66 6f 72 6d 28 34 35 |CallTran|sform(45|
|00002660| 2c 20 30 2e 35 2c 20 30 | 2e 35 29 3b 0d 09 09 09 |, 0.5, 0|.5);....|
|00002670| 45 4e 44 3b 0d 09 09 09 | 63 43 75 73 74 6f 6d 3a |END;....|cCustom:|
|00002680| 20 42 45 47 49 4e 0d 09 | 09 09 09 61 57 69 6e 64 | BEGIN..|...aWind|
|00002690| 6f 77 20 3a 3d 20 4e 65 | 77 54 65 6d 70 6c 61 74 |ow := Ne|wTemplat|
|000026a0| 65 57 69 6e 64 6f 77 28 | 6b 4f 70 74 69 6f 6e 73 |eWindow(|kOptions|
|000026b0| 44 69 61 6c 6f 67 2c 20 | 4e 49 4c 29 3b 0d 09 09 |Dialog, |NIL);...|
|000026c0| 09 09 64 69 73 6d 69 73 | 73 65 72 20 3a 3d 20 54 |..dismis|ser := T|
|000026d0| 44 69 61 6c 6f 67 56 69 | 65 77 28 61 57 69 6e 64 |DialogVi|ew(aWind|
|000026e0| 6f 77 2e 46 69 6e 64 53 | 75 62 56 69 65 77 28 27 |ow.FindS|ubView('|
|000026f0| 44 4c 4f 47 27 29 29 2e | 50 6f 73 65 4d 6f 64 61 |DLOG')).|PoseModa|
|00002700| 6c 6c 79 3b 0d 09 09 09 | 09 49 46 20 28 64 69 73 |lly;....|.IF (dis|
|00002710| 6d 69 73 73 65 72 20 3d | 20 27 4f 4b 4f 4b 27 29 |misser =| 'OKOK')|
|00002720| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 09 09 | THEN BE|GIN.....|
|00002730| 09 57 49 54 48 20 61 57 | 69 6e 64 6f 77 20 44 4f |.WITH aW|indow DO|
|00002740| 20 42 45 47 49 4e 0d 09 | 09 09 09 09 09 67 52 6f | BEGIN..|.....gRo|
|00002750| 74 61 74 69 6f 6e 20 3a | 3d 20 54 4e 75 6d 62 65 |tation :|= TNumbe|
|00002760| 72 54 65 78 74 28 46 69 | 6e 64 53 75 62 56 69 65 |rText(Fi|ndSubVie|
|00002770| 77 28 27 6e 64 65 67 27 | 29 29 2e 47 65 74 56 61 |w('ndeg'|)).GetVa|
|00002780| 6c 75 65 3b 0d 09 09 09 | 09 09 09 57 49 54 48 20 |lue;....|...WITH |
|00002790| 67 43 65 6e 74 65 72 20 | 44 4f 20 42 45 47 49 4e |gCenter |DO BEGIN|
|000027a0| 0d 09 09 09 09 09 09 09 | 68 20 3a 3d 20 54 4e 75 |........|h := TNu|
|000027b0| 6d 62 65 72 54 65 78 74 | 28 46 69 6e 64 53 75 62 |mberText|(FindSub|
|000027c0| 56 69 65 77 28 27 6e 63 | 72 78 27 29 29 2e 47 65 |View('nc|rx')).Ge|
|000027d0| 74 56 61 6c 75 65 3b 0d | 09 09 09 09 09 09 09 76 |tValue;.|.......v|
|000027e0| 20 3a 3d 20 54 4e 75 6d | 62 65 72 54 65 78 74 28 | := TNum|berText(|
|000027f0| 46 69 6e 64 53 75 62 56 | 69 65 77 28 27 6e 63 72 |FindSubV|iew('ncr|
|00002800| 79 27 29 29 2e 47 65 74 | 56 61 6c 75 65 3b 0d 09 |y')).Get|Value;..|
|00002810| 09 09 09 09 09 45 4e 44 | 3b 0d 09 09 09 09 09 09 |.....END|;.......|
|00002820| 57 49 54 48 20 67 44 65 | 73 74 69 6e 61 74 69 6f |WITH gDe|stinatio|
|00002830| 6e 20 44 4f 20 42 45 47 | 49 4e 0d 09 09 09 09 09 |n DO BEG|IN......|
|00002840| 09 09 68 20 3a 3d 20 54 | 4e 75 6d 62 65 72 54 65 |..h := T|NumberTe|
|00002850| 78 74 28 46 69 6e 64 53 | 75 62 56 69 65 77 28 27 |xt(FindS|ubView('|
|00002860| 6e 74 72 78 27 29 29 2e | 47 65 74 56 61 6c 75 65 |ntrx')).|GetValue|
|00002870| 3b 0d 09 09 09 09 09 09 | 09 76 20 3a 3d 20 54 4e |;.......|.v := TN|
|00002880| 75 6d 62 65 72 54 65 78 | 74 28 46 69 6e 64 53 75 |umberTex|t(FindSu|
|00002890| 62 56 69 65 77 28 27 6e | 74 72 79 27 29 29 2e 47 |bView('n|try')).G|
|000028a0| 65 74 56 61 6c 75 65 3b | 0d 09 09 09 09 09 09 45 |etValue;|.......E|
|000028b0| 4e 44 3b 0d 09 09 09 09 | 09 09 67 53 63 61 6c 65 |ND;.....|..gScale|
|000028c0| 58 20 3a 3d 20 54 45 78 | 74 4e 75 6d 62 65 72 54 |X := TEx|tNumberT|
|000028d0| 65 78 74 28 46 69 6e 64 | 53 75 62 56 69 65 77 28 |ext(Find|SubView(|
|000028e0| 27 6e 73 63 78 27 29 29 | 2e 47 65 74 45 78 74 56 |'nscx'))|.GetExtV|
|000028f0| 61 6c 75 65 3b 0d 09 09 | 09 09 09 09 67 53 63 61 |alue;...|....gSca|
|00002900| 6c 65 59 20 3a 3d 20 54 | 45 78 74 4e 75 6d 62 65 |leY := T|ExtNumbe|
|00002910| 72 54 65 78 74 28 46 69 | 6e 64 53 75 62 56 69 65 |rText(Fi|ndSubVie|
|00002920| 77 28 27 6e 73 63 79 27 | 29 29 2e 47 65 74 45 78 |w('nscy'|)).GetEx|
|00002930| 74 56 61 6c 75 65 3b 0d | 09 09 09 09 09 09 43 6c |tValue;.|......Cl|
|00002940| 6f 73 65 3b 0d 09 09 09 | 09 09 45 4e 44 3b 0d 0d |ose;....|..END;..|
|00002950| 09 09 09 09 09 49 46 20 | 46 6f 63 75 73 20 54 48 |.....IF |Focus TH|
|00002960| 45 4e 3b 0d 09 09 09 09 | 09 42 65 67 69 6e 55 70 |EN;.....|.BeginUp|
|00002970| 64 61 74 65 28 74 68 65 | 50 6f 72 74 29 3b 09 09 |date(the|Port);..|
|00002980| 09 09 7b 55 73 65 20 74 | 68 65 50 6f 72 74 20 62 |..{Use t|hePort b|
|00002990| 65 63 61 75 73 65 20 77 | 65 20 6b 6e 6f 77 20 77 |ecause w|e know w|
|000029a0| 65 27 72 65 20 66 6f 63 | 75 73 65 64 7d 0d 09 09 |e're foc|used}...|
|000029b0| 09 09 09 45 72 61 73 65 | 52 65 63 74 28 74 68 65 |...Erase|Rect(the|
|000029c0| 50 6f 72 74 5e 2e 70 6f | 72 74 52 65 63 74 29 3b |Port^.po|rtRect);|
|000029d0| 0d 09 09 09 09 09 44 72 | 61 77 43 6f 6e 74 65 6e |......Dr|awConten|
|000029e0| 74 73 3b 0d 09 09 09 09 | 09 45 6e 64 55 70 64 61 |ts;.....|.EndUpda|
|000029f0| 74 65 28 74 68 65 50 6f | 72 74 29 3b 0d 0d 09 09 |te(thePo|rt);....|
|00002a00| 09 09 09 54 42 69 74 4d | 61 70 44 6f 63 75 6d 65 |...TBitM|apDocume|
|00002a10| 6e 74 28 66 44 6f 63 75 | 6d 65 6e 74 29 2e 47 65 |nt(fDocu|ment).Ge|
|00002a20| 74 4f 72 69 67 42 69 74 | 4d 61 70 28 73 6f 75 72 |tOrigBit|Map(sour|
|00002a30| 63 65 42 69 74 4d 61 70 | 29 3b 0d 09 09 09 09 09 |ceBitMap|);......|
|00002a40| 64 65 73 74 42 69 74 4d | 61 70 20 3a 3d 20 66 54 |destBitM|ap := fT|
|00002a50| 72 61 6e 73 42 69 74 4d | 61 70 3b 0d 0d 09 09 09 |ransBitM|ap;.....|
|00002a60| 09 09 7b 24 49 46 43 20 | 71 44 65 62 75 67 7d 0d |..{$IFC |qDebug}.|
|00002a70| 09 09 09 09 09 57 72 4c | 62 6c 50 74 28 27 67 43 |.....WrL|blPt('gC|
|00002a80| 65 6e 74 65 72 27 2c 20 | 67 43 65 6e 74 65 72 29 |enter', |gCenter)|
|00002a90| 3b 20 57 72 69 74 65 6c | 6e 3b 0d 09 09 09 09 09 |; Writel|n;......|
|00002aa0| 57 72 4c 62 6c 50 74 28 | 27 67 44 65 73 74 69 6e |WrLblPt(|'gDestin|
|00002ab0| 61 74 69 6f 6e 27 2c 20 | 67 44 65 73 74 69 6e 61 |ation', |gDestina|
|00002ac0| 74 69 6f 6e 29 3b 20 57 | 72 69 74 65 6c 6e 3b 0d |tion); W|riteln;.|
|00002ad0| 09 09 09 09 09 57 72 69 | 74 65 6c 6e 28 27 67 52 |.....Wri|teln('gR|
|00002ae0| 6f 74 61 74 69 6f 6e 20 | 3d 20 27 2c 20 67 52 6f |otation |= ', gRo|
|00002af0| 74 61 74 69 6f 6e 3a 20 | 31 29 3b 0d 09 09 09 09 |tation: |1);.....|
|00002b00| 09 57 72 69 74 65 6c 6e | 28 27 67 53 63 61 6c 65 |.Writeln|('gScale|
|00002b10| 58 20 3d 20 27 2c 20 67 | 53 63 61 6c 65 58 3a 20 |X = ', g|ScaleX: |
|00002b20| 31 29 3b 0d 09 09 09 09 | 09 57 72 69 74 65 6c 6e |1);.....|.Writeln|
|00002b30| 28 27 67 53 63 61 6c 65 | 59 20 3d 20 27 2c 20 67 |('gScale|Y = ', g|
|00002b40| 53 63 61 6c 65 59 3a 20 | 31 29 3b 0d 09 09 09 09 |ScaleY: |1);.....|
|00002b50| 09 7b 24 45 4e 44 43 7d | 0d 0d 09 09 09 09 09 44 |.{$ENDC}|.......D|
|00002b60| 6f 54 72 61 6e 73 66 6f | 72 6d 28 73 6f 75 72 63 |oTransfo|rm(sourc|
|00002b70| 65 42 69 74 4d 61 70 2c | 20 64 65 73 74 42 69 74 |eBitMap,| destBit|
|00002b80| 4d 61 70 2c 20 67 43 65 | 6e 74 65 72 2c 20 67 44 |Map, gCe|nter, gD|
|00002b90| 65 73 74 69 6e 61 74 69 | 6f 6e 2c 20 67 52 6f 74 |estinati|on, gRot|
|00002ba0| 61 74 69 6f 6e 2c 0d 09 | 09 09 09 09 09 09 09 58 |ation,..|.......X|
|00002bb0| 38 30 74 6f 58 39 36 28 | 67 53 63 61 6c 65 58 29 |80toX96(|gScaleX)|
|00002bc0| 2c 20 58 38 30 74 6f 58 | 39 36 28 67 53 63 61 6c |, X80toX|96(gScal|
|00002bd0| 65 59 29 29 3b 0d 09 09 | 09 09 09 46 6f 72 63 65 |eY));...|...Force|
|00002be0| 52 65 64 72 61 77 3b 0d | 09 09 09 09 45 4e 44 0d |Redraw;.|....END.|
|00002bf0| 09 09 09 09 45 4c 53 45 | 20 42 45 47 49 4e 0d 09 |....ELSE| BEGIN..|
|00002c00| 09 09 09 09 61 57 69 6e | 64 6f 77 2e 43 6c 6f 73 |....aWin|dow.Clos|
|00002c10| 65 3b 0d 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 45 |e;.....E|ND;....E|
|00002c20| 4e 44 3b 0d 09 09 09 4f | 54 48 45 52 57 49 53 45 |ND;....O|THERWISE|
|00002c30| 20 44 6f 4d 65 6e 75 43 | 6f 6d 6d 61 6e 64 20 3a | DoMenuC|ommand :|
|00002c40| 3d 20 49 4e 48 45 52 49 | 54 45 44 20 44 6f 4d 65 |= INHERI|TED DoMe|
|00002c50| 6e 75 43 6f 6d 6d 61 6e | 64 28 61 43 6d 64 4e 75 |nuComman|d(aCmdNu|
|00002c60| 6d 62 65 72 29 3b 0d 09 | 09 45 4e 44 3b 0d 09 45 |mber);..|.END;..E|
|00002c70| 4e 44 3b 0d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ND;..{--|--------|
|00002c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 0d 50 52 4f 43 45 |--------|}..PROCE|
|00002ce0| 44 55 52 45 20 54 42 69 | 74 4d 61 70 56 69 65 77 |DURE TBi|tMapView|
|00002cf0| 2e 44 6f 53 65 74 75 70 | 4d 65 6e 75 73 3b 20 4f |.DoSetup|Menus; O|
|00002d00| 56 45 52 52 49 44 45 3b | 0d 0d 09 42 45 47 49 4e |VERRIDE;|...BEGIN|
|00002d10| 0d 09 09 49 4e 48 45 52 | 49 54 45 44 20 44 6f 53 |...INHER|ITED DoS|
|00002d20| 65 74 75 70 4d 65 6e 75 | 73 3b 0d 0d 09 09 45 6e |etupMenu|s;....En|
|00002d30| 61 62 6c 65 28 63 4e 6f | 72 6d 61 6c 2c 20 54 52 |able(cNo|rmal, TR|
|00002d40| 55 45 29 3b 0d 09 09 45 | 6e 61 62 6c 65 28 63 52 |UE);...E|nable(cR|
|00002d50| 6f 74 39 30 2c 20 54 52 | 55 45 29 3b 0d 09 09 45 |ot90, TR|UE);...E|
|00002d60| 6e 61 62 6c 65 28 63 52 | 6f 74 34 35 2c 20 54 52 |nable(cR|ot45, TR|
|00002d70| 55 45 29 3b 0d 09 09 45 | 6e 61 62 6c 65 28 63 53 |UE);...E|nable(cS|
|00002d80| 63 61 6c 65 32 2c 20 54 | 52 55 45 29 3b 0d 09 09 |cale2, T|RUE);...|
|00002d90| 45 6e 61 62 6c 65 28 63 | 53 63 61 6c 65 48 61 6c |Enable(c|ScaleHal|
|00002da0| 66 2c 20 54 52 55 45 29 | 3b 0d 09 09 45 6e 61 62 |f, TRUE)|;...Enab|
|00002db0| 6c 65 28 63 52 6f 74 34 | 35 53 63 61 6c 65 48 61 |le(cRot4|5ScaleHa|
|00002dc0| 6c 66 2c 20 54 52 55 45 | 29 3b 0d 09 09 45 6e 61 |lf, TRUE|);...Ena|
|00002dd0| 62 6c 65 28 63 43 75 73 | 74 6f 6d 2c 20 54 52 55 |ble(cCus|tom, TRU|
|00002de0| 45 29 3b 0d 09 45 4e 44 | 3b 0d 0d 7b 2d 2d 2d 2d |E);..END|;..{----|
|00002df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|00002e50| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 42 69 74 4d |.PROCEDU|RE TBitM|
|00002e60| 61 70 56 69 65 77 2e 44 | 72 61 77 28 61 72 65 61 |apView.D|raw(area|
|00002e70| 3a 20 52 65 63 74 29 3b | 20 4f 56 45 52 52 49 44 |: Rect);| OVERRID|
|00002e80| 45 3b 0d 0d 09 56 41 52 | 0d 09 09 61 42 69 74 4d |E;...VAR|...aBitM|
|00002e90| 61 70 20 09 09 20 20 20 | 3a 20 42 69 74 4d 61 70 |ap .. |: BitMap|
|00002ea0| 3b 0d 0d 09 42 45 47 49 | 4e 0d 09 09 61 42 69 74 |;...BEGI|N...aBit|
|00002eb0| 4d 61 70 20 3a 3d 20 66 | 54 72 61 6e 73 42 69 74 |Map := f|TransBit|
|00002ec0| 4d 61 70 3b 0d 09 09 43 | 6f 70 79 42 69 74 73 28 |Map;...C|opyBits(|
|00002ed0| 61 42 69 74 4d 61 70 2c | 20 47 65 74 57 69 6e 64 |aBitMap,| GetWind|
|00002ee0| 6f 77 2e 47 65 74 47 72 | 61 66 50 6f 72 74 5e 2e |ow.GetGr|afPort^.|
|00002ef0| 70 6f 72 74 42 69 74 73 | 2c 20 61 72 65 61 2c 20 |portBits|, area, |
|00002f00| 61 72 65 61 2c 20 73 72 | 63 43 6f 70 79 2c 20 4e |area, sr|cCopy, N|
|00002f10| 49 4c 29 3b 0d 09 45 4e | 44 3b 0d 0d 7b 2d 2d 2d |IL);..EN|D;..{---|
|00002f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00002f80| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 54 42 69 74 |..PROCED|URE TBit|
|00002f90| 4d 61 70 56 69 65 77 2e | 46 69 65 6c 64 73 28 50 |MapView.|Fields(P|
|00002fa0| 52 4f 43 45 44 55 52 45 | 20 44 6f 54 6f 46 69 65 |ROCEDURE| DoToFie|
|00002fb0| 6c 64 28 66 69 65 6c 64 | 4e 61 6d 65 3a 20 53 74 |ld(field|Name: St|
|00002fc0| 72 32 35 35 3b 20 66 69 | 65 6c 64 41 64 64 72 3a |r255; fi|eldAddr:|
|00002fd0| 20 50 74 72 3b 0d 09 09 | 09 09 09 09 09 09 09 09 | Ptr;...|........|
|00002fe0| 09 09 20 66 69 65 6c 64 | 54 79 70 65 3a 20 49 4e |.. field|Type: IN|
|00002ff0| 54 45 47 45 52 29 29 3b | 20 4f 56 45 52 52 49 44 |TEGER));| OVERRID|
|00003000| 45 3b 0d 0d 09 42 45 47 | 49 4e 0d 09 09 44 6f 54 |E;...BEG|IN...DoT|
|00003010| 6f 46 69 65 6c 64 28 27 | 66 54 72 61 6e 73 42 69 |oField('|fTransBi|
|00003020| 74 4d 61 70 27 2c 20 4e | 49 4c 2c 20 62 54 69 74 |tMap', N|IL, bTit|
|00003030| 6c 65 29 3b 0d 09 09 44 | 6f 54 6f 46 69 65 6c 64 |le);...D|oToField|
|00003040| 28 27 20 20 62 61 73 65 | 41 64 64 72 27 2c 20 40 |(' base|Addr', @|
|00003050| 66 54 72 61 6e 73 42 69 | 74 4d 61 70 2e 62 61 73 |fTransBi|tMap.bas|
|00003060| 65 41 64 64 72 2c 20 62 | 50 6f 69 6e 74 65 72 29 |eAddr, b|Pointer)|
|00003070| 3b 0d 09 09 44 6f 54 6f | 46 69 65 6c 64 28 27 20 |;...DoTo|Field(' |
|00003080| 20 72 6f 77 42 79 74 65 | 73 27 2c 20 40 66 54 72 | rowByte|s', @fTr|
|00003090| 61 6e 73 42 69 74 4d 61 | 70 2e 72 6f 77 42 79 74 |ansBitMa|p.rowByt|
|000030a0| 65 73 2c 20 62 49 6e 74 | 65 67 65 72 29 3b 0d 09 |es, bInt|eger);..|
|000030b0| 09 44 6f 54 6f 46 69 65 | 6c 64 28 27 20 20 62 6f |.DoToFie|ld(' bo|
|000030c0| 75 6e 64 73 27 2c 20 40 | 66 54 72 61 6e 73 42 69 |unds', @|fTransBi|
|000030d0| 74 4d 61 70 2e 62 6f 75 | 6e 64 73 2c 20 62 52 65 |tMap.bou|nds, bRe|
|000030e0| 63 74 29 3b 0d 0d 09 09 | 49 4e 48 45 52 49 54 45 |ct);....|INHERITE|
|000030f0| 44 20 46 69 65 6c 64 73 | 28 44 6f 54 6f 46 69 65 |D Fields|(DoToFie|
|00003100| 6c 64 29 3b 0d 09 45 4e | 44 3b 0d 0d 7b 2d 2d 2d |ld);..EN|D;..{---|
|00003110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00003170| 0d 7b 20 54 20 45 20 78 | 20 74 20 4e 20 75 20 6d |.{ T E x| t N u m|
|00003180| 20 62 20 65 20 72 20 54 | 20 65 20 78 20 74 20 7d | b e r T| e x t }|
|00003190| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------|
|000031a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031f0| 2d 2d 2d 2d 7d 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |----}..F|UNCTION |
|00003200| 54 45 78 74 4e 75 6d 62 | 65 72 54 65 78 74 2e 47 |TExtNumb|erText.G|
|00003210| 65 74 45 78 74 56 61 6c | 75 65 3a 20 45 78 74 65 |etExtVal|ue: Exte|
|00003220| 6e 64 65 64 3b 0d 0d 09 | 56 41 52 0d 09 09 61 53 |nded;...|VAR...aS|
|00003230| 74 72 69 6e 67 20 09 09 | 20 20 20 3a 20 53 74 72 |tring ..| : Str|
|00003240| 32 35 35 3b 0d 0d 09 42 | 45 47 49 4e 0d 09 09 47 |255;...B|EGIN...G|
|00003250| 65 74 54 65 78 74 28 61 | 53 74 72 69 6e 67 29 3b |etText(a|String);|
|00003260| 0d 09 09 47 65 74 45 78 | 74 56 61 6c 75 65 20 3a |...GetEx|tValue :|
|00003270| 3d 20 53 74 72 32 4e 75 | 6d 28 61 53 74 72 69 6e |= Str2Nu|m(aStrin|
|00003280| 67 29 3b 0d 09 45 4e 44 | 3b 0d 0d 7b 2d 2d 2d 2d |g);..END|;..{----|
|00003290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|000032f0| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 45 78 74 4e |.PROCEDU|RE TExtN|
|00003300| 75 6d 62 65 72 54 65 78 | 74 2e 53 65 74 45 78 74 |umberTex|t.SetExt|
|00003310| 56 61 6c 75 65 28 65 78 | 74 3a 20 45 78 74 65 6e |Value(ex|t: Exten|
|00003320| 64 65 64 3b 20 72 65 64 | 72 61 77 3a 20 42 6f 6f |ded; red|raw: Boo|
|00003330| 6c 65 61 6e 29 3b 0d 0d | 09 56 41 52 0d 09 09 61 |lean);..|.VAR...a|
|00003340| 53 74 72 69 6e 67 20 09 | 09 20 20 20 3a 20 44 65 |String .|. : De|
|00003350| 63 53 74 72 3b 0d 09 09 | 66 6f 72 6d 09 09 09 20 |cStr;...|form... |
|00003360| 20 20 3a 20 44 65 63 46 | 6f 72 6d 3b 0d 0d 09 42 | : DecF|orm;...B|
|00003370| 45 47 49 4e 0d 09 09 57 | 49 54 48 20 66 6f 72 6d |EGIN...W|ITH form|
|00003380| 20 44 4f 20 42 45 47 49 | 4e 0d 09 09 09 73 74 79 | DO BEGI|N....sty|
|00003390| 6c 65 20 3a 3d 20 46 6c | 6f 61 74 44 65 63 69 6d |le := Fl|oatDecim|
|000033a0| 61 6c 3b 0d 09 09 09 64 | 69 67 69 74 73 20 3a 3d |al;....d|igits :=|
|000033b0| 20 30 3b 0d 09 09 45 4e | 44 3b 0d 09 09 4e 75 6d | 0;...EN|D;...Num|
|000033c0| 32 53 74 72 28 66 6f 72 | 6d 2c 20 65 78 74 2c 20 |2Str(for|m, ext, |
|000033d0| 61 53 74 72 69 6e 67 29 | 3b 0d 09 09 53 65 74 54 |aString)|;...SetT|
|000033e0| 65 78 74 28 61 53 74 72 | 69 6e 67 2c 20 72 65 64 |ext(aStr|ing, red|
|000033f0| 72 61 77 29 3b 0d 09 45 | 4e 44 3b 0d 0d 7b 2d 2d |raw);..E|ND;..{--|
|00003400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003460| 7d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 54 45 78 74 |}..FUNCT|ION TExt|
|00003470| 4e 75 6d 62 65 72 54 65 | 78 74 2e 56 61 6c 69 64 |NumberTe|xt.Valid|
|00003480| 61 74 65 3a 20 4c 4f 4e | 47 49 4e 54 3b 20 4f 56 |ate: LON|GINT; OV|
|00003490| 45 52 52 49 44 45 3b 0d | 0d 09 56 41 52 0d 09 09 |ERRIDE;.|..VAR...|
|000034a0| 74 68 65 53 74 72 69 6e | 67 09 09 20 20 20 3a 20 |theStrin|g.. : |
|000034b0| 53 74 72 32 35 35 3b 0d | 09 09 64 65 63 52 65 63 |Str255;.|..decRec|
|000034c0| 09 09 09 20 20 20 3a 20 | 44 65 63 69 6d 61 6c 3b |... : |Decimal;|
|000034d0| 0d 09 09 65 78 74 56 61 | 6c 75 65 09 09 20 20 20 |...extVa|lue.. |
|000034e0| 3a 20 45 78 74 65 6e 64 | 65 64 3b 0d 09 09 69 6e |: Extend|ed;...in|
|000034f0| 64 65 78 09 09 09 20 20 | 20 3a 20 49 4e 54 45 47 |dex... | : INTEG|
|00003500| 45 52 3b 0d 09 09 76 61 | 6c 69 64 50 72 65 66 69 |ER;...va|lidPrefi|
|00003510| 78 20 09 20 20 20 3a 20 | 42 6f 6f 6c 65 61 6e 3b |x . : |Boolean;|
|00003520| 0d 0d 09 42 45 47 49 4e | 0d 09 09 56 61 6c 69 64 |...BEGIN|...Valid|
|00003530| 61 74 65 20 3a 3d 20 6b | 56 61 6c 69 64 56 61 6c |ate := k|ValidVal|
|00003540| 75 65 3b 0d 0d 09 09 47 | 65 74 54 65 78 74 28 74 |ue;....G|etText(t|
|00003550| 68 65 53 74 72 69 6e 67 | 29 3b 0d 09 09 49 46 20 |heString|);...IF |
|00003560| 74 68 65 53 74 72 69 6e | 67 20 3d 20 27 27 20 54 |theStrin|g = '' T|
|00003570| 48 45 4e 0d 09 09 09 74 | 68 65 53 74 72 69 6e 67 |HEN....t|heString|
|00003580| 20 3a 3d 20 27 30 27 3b | 0d 0d 09 09 69 6e 64 65 | := '0';|....inde|
|00003590| 78 20 3a 3d 20 31 3b 0d | 09 09 53 74 72 32 44 65 |x := 1;.|..Str2De|
|000035a0| 63 28 74 68 65 53 74 72 | 69 6e 67 2c 20 69 6e 64 |c(theStr|ing, ind|
|000035b0| 65 78 2c 20 64 65 63 52 | 65 63 2c 20 76 61 6c 69 |ex, decR|ec, vali|
|000035c0| 64 50 72 65 66 69 78 29 | 3b 0d 09 09 49 46 20 76 |dPrefix)|;...IF v|
|000035d0| 61 6c 69 64 50 72 65 66 | 69 78 20 26 20 28 69 6e |alidPref|ix & (in|
|000035e0| 64 65 78 20 3e 20 4c 65 | 6e 67 74 68 28 74 68 65 |dex > Le|ngth(the|
|000035f0| 53 74 72 69 6e 67 29 29 | 20 54 48 45 4e 20 42 45 |String))| THEN BE|
|00003600| 47 49 4e 0d 09 09 09 65 | 78 74 56 61 6c 75 65 20 |GIN....e|xtValue |
|00003610| 3a 3d 20 44 65 63 32 4e | 75 6d 28 64 65 63 52 65 |:= Dec2N|um(decRe|
|00003620| 63 29 3b 0d 09 09 09 49 | 46 20 65 78 74 56 61 6c |c);....I|F extVal|
|00003630| 75 65 20 3c 20 66 4d 69 | 6e 69 6d 75 6d 20 54 48 |ue < fMi|nimum TH|
|00003640| 45 4e 0d 09 09 09 09 56 | 61 6c 69 64 61 74 65 20 |EN.....V|alidate |
|00003650| 3a 3d 20 6b 56 61 6c 75 | 65 54 6f 6f 53 6d 61 6c |:= kValu|eTooSmal|
|00003660| 6c 0d 09 09 09 45 4c 53 | 45 20 49 46 20 65 78 74 |l....ELS|E IF ext|
|00003670| 56 61 6c 75 65 20 3e 20 | 66 4d 61 78 69 6d 75 6d |Value > |fMaximum|
|00003680| 20 54 48 45 4e 0d 09 09 | 09 09 56 61 6c 69 64 61 | THEN...|..Valida|
|00003690| 74 65 20 3a 3d 20 6b 56 | 61 6c 75 65 54 6f 6f 4c |te := kV|alueTooL|
|000036a0| 61 72 67 65 3b 0d 09 09 | 45 4e 44 0d 09 09 45 4c |arge;...|END...EL|
|000036b0| 53 45 20 42 45 47 49 4e | 0d 09 09 09 56 61 6c 69 |SE BEGIN|....Vali|
|000036c0| 64 61 74 65 20 3a 3d 20 | 6b 4e 6f 6e 4e 75 6d 65 |date := |kNonNume|
|000036d0| 72 69 63 43 68 61 72 61 | 63 74 65 72 73 3b 0d 09 |ricChara|cters;..|
|000036e0| 09 45 4e 44 3b 0d 09 45 | 4e 44 3b 0d 00 00 00 00 |.END;..E|ND;.....|
|000036f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003700| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 1e |.......L|...L....|
|00003710| 55 4e 43 54 49 4f 4e 20 | 46 6f 72 63 65 45 6e 76 |UNCTION |ForceEnv|
|00003720| 69 72 6f 6e 73 28 6d 69 | 6e 69 6d 75 6d 53 79 73 |irons(mi|nimumSys|
|00003730| 13 55 54 72 61 6e 73 66 | 6f 72 6d 65 72 2e 69 6e |.UTransf|ormer.in|
|00003740| 63 31 2e 70 02 00 00 00 | 54 45 58 54 4d 50 53 20 |c1.p....|TEXTMPS |
|00003750| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 28 00 c0 |..TEXTMP|S ...(..|
|00003760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003770| 00 00 a1 4b 04 00 00 00 | 36 6c 00 00 01 6a 09 09 |...K....|6l...j..|
|00003780| 09 09 09 20 20 6e 65 65 | 64 73 43 6f 6c 6f 72 51 |... nee|dsColorQ|
|00003790| 44 3a 20 42 4f 4f 4c 45 | 41 4e 3b 0d 09 09 09 09 |D: BOOLE|AN;.....|
|000037a0| 09 09 09 20 20 6d 69 6e | 69 6d 75 6d 41 54 44 72 |... min|imumATDr|
|000037b0| 76 72 56 65 72 73 4e 75 | 6d 3a 20 49 4e 54 45 47 |vrVersNu|m: INTEG|
|000037c0| 45 52 29 3a 20 42 4f 4f | 4c 45 41 4e 3b 0d 0d 09 |ER): BOO|LEAN;...|
|000037d0| 56 41 52 0d 09 09 65 72 | 72 6f 72 3a 20 4f 53 45 |VAR...er|ror: OSE|
|000037e0| 72 72 3b 0d 09 09 74 68 | 65 57 6f 72 6c 64 3a 20 |rr;...th|eWorld: |
|000037f0| 53 79 73 45 6e 76 52 65 | 63 3b 0d 0d 09 42 45 47 |SysEnvRe|c;...BEG|
|00003800| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00003810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003820| 00 00 00 00 00 00 00 06 | 00 04 00 2a 00 03 01 d8 |........|...*....|
|00003830| 02 79 00 2a 00 05 01 bf | 02 5f a1 4b 04 00 00 00 |.y.*....|._.K....|
|00003840| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00003850| 00 00 01 4c 00 00 00 4c | 00 00 00 1e 00 25 27 dc |...L...L|.....%'.|
|00003860| 09 30 00 00 00 1c 00 1e | ff ff 00 00 00 00 00 00 |.0......|........|
|00003870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+